home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
misc2
/
ole_101.zip
/
SCHMOO.ZIP
/
SCHMOO.C
< prev
next >
Wrap
C/C++ Source or Header
|
1992-04-13
|
10KB
|
366 lines
/*
* SCHMOO.C
*
* Basic Windows application code, with only a few specifics for handling
* blocking as far as OLE goes. Most OLE interaction is directed through
* other functions in other source files that actually make the OLE library
* calls.
*
* Copyright(c) Microsoft Corp. 1992 All Rights Reserved
*
*/
#include <windows.h>
#include <ole.h>
#include "schmoo.h"
#include "oleglobl.h"
/*
* Array of pointers to strings loaded from the resource file.
* Pointers can be near since we'll use LocalAlloc for
* the string space.
*/
char NEAR *rgpsz[CSTRINGS];
//Global variable block.
GLOBALS stGlobals;
LPGLOBALS pGlob=&stGlobals;
/*
* WinMain
*
* Purpose:
* Main entry point of application. Should register the app class
* if a previous instance has not done so and do any other one-time
* initializations.
*
* Parameters:
* See Windows SDK Guide to Programming, page 2-3
*
* Return Value:
* Value to return to Windows--termination code.
*
*/
int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
LPSTR lpszCmdLine, int nCmdShow)
{
HANDLE hAccel;
HWND hWnd;
MSG msg;
pGlob->hInst=hInstance;
pGlob->pszCmdLine=lpszCmdLine;
pGlob->nCmdShow=nCmdShow;
/*
* Try to initialize; on failure, clean up anything that might have
* been allocated.
*/
if (!FApplicationInit(pGlob, hPrevInstance))
{
FApplicationExit(pGlob);
return FALSE;
}
hWnd=CreateWindow(rgpsz[IDS_CLASSSCHMOO],
rgpsz[IDS_CAPTION],
WS_MINIMIZEBOX | WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT, 400, 350,
NULL, NULL, hInstance, NULL);
if (NULL==hWnd)
{
FApplicationExit(pGlob);
return FALSE;
}
//Prevent the WM_SIZE from ShowWindow from making us dirty.
pGlob->fNoDirty=TRUE;
ShowWindow(hWnd, pGlob->nCmdShow);
pGlob->fNoDirty=FALSE;
if (SW_HIDE != pGlob->nCmdShow)
UpdateWindow(hWnd);
hAccel=LoadAccelerators(hInstance, MAKEINTRESOURCE(IDR_ACCELERATORS));
//Non-OLE message loop.
while (GetMessage(&msg, NULL, 0,0 ))
{
if (!TranslateAccelerator(hWnd, hAccel, &msg))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
FApplicationExit(pGlob);
return msg.wParam;
}
/*
* SchmooWndProc
*
* Purpose:
* Window class procedure. Standard callback.
*
* Parameters:
* The standard.
*
* Return Value:
* The standard.
*
*/
long FAR PASCAL SchmooWndProc(HWND hWnd, UINT iMsg, UINT wParam, LONG lParam)
{
static BOOL fNoSizePoly;
RECT rc;
BOOL fOK;
WORD wTemp;
DWORD dwStyle;
FARPROC lpfn;
LPPOINT ppt;
switch (iMsg)
{
case WM_CREATE:
//Set global variable defaults that pertain to this window.
pGlob->hWnd=hWnd;
pGlob->fOpenFile=FALSE;
pGlob->fNoDirty=FALSE;
FDirtySet(FALSE);
//Create the secondary edit window.
pGlob->hWndPolyline=HPolylineWindowCreate(hWnd, pGlob->hInst);
//Set the initial window title.
WindowTitleSet(pGlob->hWnd, rgpsz[IDS_UNTITLED]);
if (!FFileInit(pGlob))
PostMessage(hWnd, WM_CLOSE, 0, 0L);
fNoSizePoly=FALSE;
break;
case WM_SIZE:
/* If we are getting WM_SIZE in response to a Polyline
* notification, then don't resize it again.
*/
if (fNoSizePoly)
break;
//Resize the polyline editor window to fit the new client area.
GetClientRect(hWnd, &rc);
InflateRect(&rc, -8, -8);
//Tell the Polyline window to resize without notifying us.
SendMessage(pGlob->hWndPolyline, PLM_RECTSET, FALSE,
(LONG)(LPSTR)&rc);
/*
* We consider sizing something that makes the file dirty, but
* not until we've finished the create process, which is why
* we set fDirty to FALSE after the ShowWindow above, because
* ShowWindow sends a WM_SIZE when the window first appears.
*/
FDirtySet(TRUE);
break;
case WM_GETMINMAXINFO:
//Limit the smallest tracking size allowable.
ppt=(LPPOINT)lParam;
ppt[3].x=158;
ppt[3].y=168;
break;
case WM_CLOSE:
if (!FFileExit(pGlob))
break;
DestroyWindow(hWnd); //Same as DefWindowProc's action.
break;
case WM_DESTROY:
PostQuitMessage(0);
break;
case WM_INITMENUPOPUP:
/*
* Check for Save possibility in File menu position 0.
* In and OLE situation, this is always enabled.
*/
if (!pGlob->fOLE && 0==LOWORD(lParam))
{
wTemp=(pGlob->fOpenFile) ? MF_ENABLED : (MF_DISABLED | MF_GRAYED);
EnableMenuItem((HMENU)wParam, IDM_FILESAVE, wTemp | MF_BYCOMMAND);
}
//Check for possibility of Paste for edit menu position 1
if (1==LOWORD(lParam))
{
fOK=IsClipboardFormatAvailable(pGlob->cfSchmoo);
wTemp=(fOK) ? MF_ENABLED : (MF_DISABLED | MF_GRAYED);
EnableMenuItem((HMENU)wParam, IDM_EDITPASTE, wTemp | MF_BYCOMMAND);
}
break;
case WM_COMMAND:
switch (wParam)
{
case ID_POLYLINE:
if (PLN_POINTCHANGE==HIWORD(lParam))
{
FDirtySet(TRUE);
break;
}
/*
* Polyline window is informing us that it changed size
* in response to setting it's data. Therefore we
* have to size ourselves accordingly.
*/
if (PLN_SIZECHANGE==HIWORD(lParam))
{
//Calculate new DIMENSIONS (we won't move)
GetWindowRect(pGlob->hWndPolyline, &rc);
InflateRect(&rc, 8, 8);
dwStyle=GetWindowLong(pGlob->hWnd, GWL_STYLE);
AdjustWindowRect(&rc, dwStyle, TRUE);
fNoSizePoly=TRUE;
SetWindowPos(pGlob->hWnd, NULL, 0, 0,
rc.right-rc.left, rc.bottom-rc.top,
SWP_NOMOVE | SWP_NOZORDER);
fNoSizePoly=FALSE;
FDirtySet(TRUE);
}
break;
case IDM_FILENEW:
FFileNew(pGlob);
break;
case IDM_FILEOPEN:
FFileOpen(pGlob, FALSE);
break;
case IDM_FILESAVE:
FFileSave(pGlob);
break;
case IDM_FILESAVEAS:
fOK=FFileSaveAs(pGlob);
return MAKELONG(fOK, 0);
case IDM_FILEIMPORT:
FFileOpen(pGlob, TRUE);
break;
case IDM_FILEEXIT:
PostMessage(hWnd, WM_CLOSE, 0, 0L);
break;
case IDM_EDITUNDO:
SendMessage(pGlob->hWndPolyline, PLM_BACKUPUNDO, 0, 0L);
break;
case IDM_EDITCUT:
FEditCut(pGlob);
break;
case IDM_EDITCOPY:
FEditCopy(pGlob, FALSE);
break;
case IDM_EDITPASTE:
FEditPaste(pGlob);
break;
case IDM_HELPABOUT:
lpfn=MakeProcInstance(AboutProc, pGlob->hInst);
DialogBox(pGlob->hInst, MAKEINTRESOURCE(IDD_ABOUT),
pGlob->hWnd, lpfn);
FreeProcInstance(lpfn);
break;
}
break;
default:
return (DefWindowProc(hWnd, iMsg, wParam, lParam));
}
return 0L;
}
/*
* AboutProc
*
* Purpose:
* Dialog procedure for the omnipresent About box.
*
* Parameters:
* The standard.
*
* Return Value:
* The value to be returned through the DialogBox call that
* created the dialog.
*
*/
BOOL FAR PASCAL AboutProc(HWND hDlg, UINT iMsg, UINT wParam, LONG lParam)
{
switch (iMsg)
{
case WM_INITDIALOG:
return TRUE;
case WM_COMMAND:
switch (wParam)
{
case IDOK:
EndDialog(hDlg, TRUE);
}
break;
}
return FALSE;
}